﻿Imports Microsoft.VisualBasic
Public Class DBBankSP
    Inherits DBParentStoredProcedureClass

    Public Operation As New TableField("Operation", Data.SqlDbType.NVarChar)
    Public BankID As New TableField("BankID", Data.SqlDbType.Int)
    Public BankBranch As New TableField("BankBranch", Data.SqlDbType.NVarChar)
    Public BankName As New TableField("BankName", Data.SqlDbType.NVarChar)
    Public Tel1 As New TableField("Tel1", Data.SqlDbType.NVarChar)
    Public Tel2 As New TableField("Tel2", Data.SqlDbType.NVarChar)
    Public Fax As New TableField("Fax", Data.SqlDbType.NVarChar)
    Public WebAddress As New TableField("WebAddress", Data.SqlDbType.NVarChar)
    Public Email As New TableField("Email", Data.SqlDbType.NVarChar)

    Sub New()
        MyBase.StoredProcedureName = "BankSP"
    End Sub

    Public Shadows Function QueryDatabase(ByVal QueryType As SqlQueryType, _
                                 Optional ByVal Operation As String = "", _
                                 Optional ByVal BankID As String = "", _
                                 Optional ByVal BankName As String = "", _
                                 Optional ByVal BankBranch As String = "", _
                                 Optional ByVal Tel1 As String = "", _
                                 Optional ByVal Tel2 As String = "", _
                                 Optional ByVal Fax As String = "", _
                                 Optional ByVal WebAddress As String = "", _
                                 Optional ByVal Email As String = "") As Object
        MyBase.FieldsArrayList = New ArrayList
        Me.Operation.SetValue(Operation, MyBase.FieldsArrayList)
        Me.BankID.SetValue(BankID, MyBase.FieldsArrayList)
        Me.BankName.SetValue(BankName, MyBase.FieldsArrayList)
        Me.BankBranch.SetValue(BankBranch, MyBase.FieldsArrayList)
        Me.Tel1.SetValue(Tel1, MyBase.FieldsArrayList)
        Me.Tel2.SetValue(Tel2, MyBase.FieldsArrayList)
        Me.WebAddress.SetValue(WebAddress, MyBase.FieldsArrayList)
        Me.Email.SetValue(Email, MyBase.FieldsArrayList)
        Me.Fax.SetValue(Fax, MyBase.FieldsArrayList)

        Return MyBase.QueryDatabase(QueryType)
    End Function

End Class

